Spawn Figure Collection/spawn collection cd.iso/setup/data1.cab/Program_Executable_Files/Collection.dir/00015_ÉrÉÖÅ[ÉÇÅ[Éhï-é¶Ç‹ÇÌÇË.ls

Text File | 1998-01-19 | 7.5 KB | 280 lines

on dispcollection
  global lseries, gnowseries, gnowtitle, gnowgroup, gcomment, gtextresult, gcdpath
  se(2, "#1")
  set ls to getAt(lseries, gnowseries)
  set lt to getAt(the ltitle of ls, gnowtitle)
  set lg to getAt(the lgroup of lt, gnowgroup)
  set the text of field "Series" to the pseries of ls
  set the text of field "Title" to the ptitle of lt
  set the text of field "Comment" to the pcomment of lg
  setenablegroup()
  if the pprotect of lg = "1" then
    newBitmap(gcdpath & "Graphics\" & the pbitmap of lg, 45)
  else
    newBitmap(the pathName & "Graphics\" & the pbitmap of lg, 45)
  end if
end

on setenablegroup
  global gnowseries, gnowtitle, lseries, ltitle, lenablegroup
  set ls to getAt(lseries, gnowseries)
  set lt to getAt(the ltitle of ls, gnowtitle)
  set lenablegroup to [0, 0, 0, 0, 0]
  repeat with t = 1 to count(the lgroup of lt)
    set lg to getAt(the lgroup of lt, t)
    case the pgroup of lg of
      "1":
        setAt(lenablegroup, 1, 1)
      "2":
        setAt(lenablegroup, 2, 1)
      "3":
        setAt(lenablegroup, 3, 1)
      "4":
        setAt(lenablegroup, 4, 1)
      "5":
        setAt(lenablegroup, 5, 1)
    end case
  end repeat
end

on nextseries
  global gnowseries, gnowtitle, gnowgroup, lseries
  set gnowtitle to 1
  set gnowgroup to 1
  set ls to getAt(lseries, gnowseries)
  set lt to getAt(the ltitle of ls, gnowtitle)
  set gnowseries to gnowseries + 1
  if gnowseries > count(lseries) then
    set gnowseries to 1
  end if
end

on previousseries
  global gnowseries, gnowtitle, gnowgroup, lseries
  set gnowtitle to 1
  set gnowgroup to 1
  set gnowseries to gnowseries - 1
  if gnowseries < 1 then
    set gnowseries to count(lseries)
  end if
end

on nexttitle
  global lseries, gnowseries, gnowtitle, gnowgroup
  set gnowgroup to 1
  set ls to getAt(lseries, gnowseries)
  set lt to getAt(the ltitle of ls, gnowtitle)
  set gnowtitle to gnowtitle + 1
  if gnowtitle > count(the ltitle of ls) then
    nextseries()
  end if
end

on previoustitle
  global lseries, gnowseries, gnowtitle, gnowgroup
  set gnowgroup to 1
  set ls to getAt(lseries, gnowseries)
  set lt to getAt(the ltitle of ls, gnowtitle)
  set gnowtitle to gnowtitle - 1
  if gnowtitle < 1 then
    previousseries()
    set ls to getAt(lseries, gnowseries)
    set gnowtitle to count(the ltitle of ls)
  end if
end

on nextgroup
  global lseries, gnowseries, gnowtitle, gnowgroup
  set ls to getAt(lseries, gnowseries)
  set lt to getAt(the ltitle of ls, gnowtitle)
  set gnowgroup to gnowgroup + 1
  if gnowgroup > count(the lgroup of lt) then
    set gnowgroup to 1
  end if
end

on previousgroup
  global lseries, gnowseries, gnowtitle, gnowgroup
  set ls to getAt(lseries, gnowseries)
  set lt to getAt(the ltitle of ls, gnowtitle)
  set gnowgroup to gnowgroup - 1
  if gnowgroup < 1 then
    set gnowgroup to count(the lgroup of lt)
  end if
end

on replylistnum num
  global lsortedt, gnowlistptr, gnowseries, gnowtitle, gnowgroup
  if (num + gnowlistptr - 1) > count(lsortedt) then
    return
  end if
  set tmp to getAt(lsortedt, num + gnowlistptr - 1)
  set s to tmp / 1000
  set t to tmp - (s * 1000)
  set gnowseries to s
  set gnowtitle to t
  set gnowgroup to 1
  repeat with t = 6 to 11
    set the visible of sprite t to 0
  end repeat
  go("Close Pull Down")
end

on setlist
  global nlist, lsortedt, gnowlistptr
  set the text of field "SortWindow" to EMPTY
  repeat with t = 1 to count(lsortedt)
    set the text of field "SortWindow" to the text of field "SortWindow" & getPropAt(lsortedt, t)
  end repeat
end

on selectgroup group
  global lseries, gnowseries, gnowtitle, gnowgroup, lblend
  set ls to getAt(lseries, gnowseries)
  set lt to getAt(the ltitle of ls, gnowtitle)
  repeat with g = 1 to count(the lgroup of lt)
    set lg to getAt(the lgroup of lt, g)
    if integer(the pgroup of lg) = group then
      set gnowgroup to g
      return
    end if
  end repeat
end

on buttonanim
  global lseries, gnowseries, gnowtitle, gnowgroup, lenablegroup
  set ls to getAt(lseries, gnowseries)
  set lt to getAt(the ltitle of ls, gnowtitle)
  set lg to getAt(the lgroup of lt, gnowgroup)
  repeat with t = 11 to 22
    set tmp to the blend of sprite t
    set the puppet of sprite t to 1
    if rollOver(t) then
      set the blend of sprite t to 100
      next repeat
    end if
    if tmp > 0 then
      set tmp to tmp - 25
      if tmp < 0 then
        set tmp to 0
      end if
      set the blend of sprite t to tmp
    end if
  end repeat
  updateStage()
  set the puppet of sprite 23 to 1
  if the blend of sprite 20 > 0 then
    set the visible of sprite 23 to 1
  else
    set the visible of sprite 23 to 0
  end if
  repeat with t = 1 to 5
    set the puppet of sprite (30 + t) to 1
    set the puppet of sprite (5 + t) to 1
    if rollOver(30 + t) then
      set the blend of sprite (30 + t) to 100
      set the blend of sprite (5 + t) to 100
      next repeat
    end if
    if the blend of sprite (5 + t) > 0 then
      set the blend of sprite (5 + t) to the blend of sprite (5 + t) - 10
    end if
    if getAt(lenablegroup, t) then
      if the blend of sprite (t + 30) > 0 then
        set the blend of sprite (t + 30) to the blend of sprite (t + 30) - 10
      else
        set the blend of sprite (t + 30) to 100
      end if
      next repeat
    end if
    if the blend of sprite (30 + t) > 0 then
      set the blend of sprite (30 + t) to the blend of sprite (30 + t) - 10
    end if
  end repeat
  if integer(the pgroup of lg) < 6 then
    set the blend of sprite (integer(the pgroup of lg) + 30) to 100
    set the blend of sprite (integer(the pgroup of lg) + 5) to 100
  end if
  if the pcheckbox of lg = "1" then
    set the puppet of sprite 47 to 1
    set tmp to the blend of sprite 47
    set tmp to tmp - 25
    if tmp < 0 then
      set tmp to 0
    end if
    set the blend of sprite 47 to tmp
    if the pcheck of lg = "1" then
      set the blend of sprite 47 to 100
    else
      if rollOver(46) then
        set the blend of sprite 47 to 100
      end if
    end if
  end if
end

on soundanim
  repeat with t = 1 to 3
    set the puppet of sprite (39 + t) to 1
    set tmp to the blend of sprite (39 + t)
    if the soundEnabled then
      set tt to 8 - the soundLevel
      if random(tt) = 1 then
        set the blend of sprite (39 + t) to 100
      end if
    end if
    if rollOver(39 + t) then
      set the blend of sprite (39 + t) to 100
      next repeat
    end if
    if tmp > 0 then
      set tmp to tmp - 25
      if tmp < 0 then
        set tmp to 0
      end if
      set the blend of sprite (39 + t) to tmp
    end if
  end repeat
  set the puppet of sprite 43 to 1
  if the soundEnabled then
    set the memberNum of sprite 43 to member "sound on"
  else
    set the memberNum of sprite 43 to member "sound off"
  end if
end

on pulldownanim
  repeat with t = 1 to 3
    set the puppet of sprite (t + 17) to 1
    set tmp to the blend of sprite (t + 17)
    if rollOver(t + 17) then
      set the blend of sprite (t + 17) to 100
      next repeat
    end if
    if tmp > 0 then
      set tmp to tmp - 25
      if tmp < 0 then
        set tmp to 0
      end if
      set the blend of sprite (t + 17) to tmp
    end if
  end repeat
  repeat with t = 1 to 10
    set the puppet of sprite (t + 5) to 1
    if rollOver(t + 5) then
      set the visible of sprite (t + 5) to 1
      next repeat
    end if
    set the visible of sprite (t + 5) to 0
  end repeat
end

on resetdisp
  repeat with t = 1 to 48
    set the puppet of sprite t to 1
    set the visible of sprite t to 1
    set the puppet of sprite t to 0
  end repeat
  updateStage()
end